﻿Public Class clsPgdMes
    Public Function getListBySysId(sys_id As String) As DataTable
        Dim szSql As String = "SELECT * FROM sf.b_pgd_mes where sys_id = ? "
        Return DBacs.ExecuteSql(szSql, -1, sys_id)
    End Function

    Public Function getListBySysId1(sys_id As String) As DataTable
        Dim szSql As String = "SELECT * FROM sf.b_pgd_lh_details where sys_id = ? "
        Return DBacs.ExecuteSql(szSql, -1, sys_id)
    End Function

End Class
